Sub muestra_Case()
    Dim a As Integer
    a = 2
    Select Case a
        Case 1
            Debug.Print "a = 1"
        Case 2
            Debug.Print "a = 2"
        Case 3
            Debug.Print "a = 3"
        Case Else
            Debug.Print "a <> 1, 2 y 3"
    End Select
End Sub
